VERSION 4.00
Begin VB.Form frmTimer 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Opening Nag Screen"
   ClientHeight    =   4380
   ClientLeft      =   1560
   ClientTop       =   1560
   ClientWidth     =   6525
   ControlBox      =   0   'False
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   4785
   Left            =   1500
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4380
   ScaleWidth      =   6525
   Top             =   1215
   Width           =   6645
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   60
      Top             =   4410
   End
   Begin Threed.SSPanel pnlMain 
      Height          =   4365
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6525
      _version        =   65536
      _extentx        =   11509
      _extenty        =   7699
      _stockprops     =   15
      backcolor       =   -2147483633
      bevelouter      =   0
      Begin Threed.SSPanel pnlExit 
         Height          =   630
         Left            =   4440
         TabIndex        =   6
         Top             =   3225
         Width           =   1710
         _version        =   65536
         _extentx        =   3016
         _extenty        =   1111
         _stockprops     =   15
         backcolor       =   -2147483633
         bevelouter      =   0
         bevelinner      =   1
         alignment       =   0
         Begin Threed.SSCommand btnTimer 
            Height          =   495
            Index           =   1
            Left            =   75
            TabIndex        =   7
            Top             =   60
            Width           =   1560
            _version        =   65536
            _extentx        =   2752
            _extenty        =   873
            _stockprops     =   78
            caption         =   "Exit"
            BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
               name            =   "MS Sans Serif"
               charset         =   1
               weight          =   400
               size            =   8.25
               underline       =   0   'False
               italic          =   0   'False
               strikethrough   =   0   'False
            EndProperty
         End
      End
      Begin Threed.SSPanel pnlCont 
         Height          =   630
         Left            =   360
         TabIndex        =   4
         Top             =   3255
         Width           =   1710
         _version        =   65536
         _extentx        =   3016
         _extenty        =   1111
         _stockprops     =   15
         caption         =   "Panel3D1"
         backcolor       =   -2147483633
         bevelouter      =   0
         bevelinner      =   1
         alignment       =   0
         Begin Threed.SSCommand btnTimer 
            Height          =   510
            Index           =   0
            Left            =   60
            TabIndex        =   5
            Top             =   60
            Width           =   1575
            _version        =   65536
            _extentx        =   2778
            _extenty        =   900
            _stockprops     =   78
            caption         =   "Continue"
            BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
               name            =   "MS Sans Serif"
               charset         =   1
               weight          =   400
               size            =   8.25
               underline       =   0   'False
               italic          =   0   'False
               strikethrough   =   0   'False
            EndProperty
         End
      End
      Begin Threed.SSFrame fraCopy 
         Height          =   630
         Left            =   345
         TabIndex        =   2
         Top             =   2175
         Width           =   5880
         _version        =   65536
         _extentx        =   10372
         _extenty        =   1111
         _stockprops     =   14
         Begin VB.Label lblCopy 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            Caption         =   "Put Copyright and Trademark information inside this frame."
            BeginProperty Font 
               name            =   "MS Sans Serif"
               charset         =   1
               weight          =   400
               size            =   8.25
               underline       =   0   'False
               italic          =   0   'False
               strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   195
            Left            =   870
            TabIndex        =   3
            Top             =   270
            Width           =   4095
         End
      End
      Begin Threed.SSPanel pnlMssg 
         Height          =   1590
         Left            =   480
         TabIndex        =   1
         Top             =   315
         Width           =   5610
         _version        =   65536
         _extentx        =   9895
         _extenty        =   2805
         _stockprops     =   15
         caption         =   $"FRMTIMER.frx":0000
         backcolor       =   -2147483633
         BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   400
            size            =   8.25
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         bevelouter      =   0
         bevelinner      =   1
         alignment       =   0
         Begin VB.Label lblMessage 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            Caption         =   $"FRMTIMER.frx":00BF
            BeginProperty Font 
               name            =   "MS Sans Serif"
               charset         =   1
               weight          =   400
               size            =   8.25
               underline       =   0   'False
               italic          =   0   'False
               strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   585
            Left            =   120
            TabIndex        =   10
            Top             =   870
            Width           =   5325
            WordWrap        =   -1  'True
         End
      End
      Begin VB.Label lblTime2 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H00000000&
         ForeColor       =   &H0000FF00&
         Height          =   300
         Left            =   3090
         TabIndex        =   9
         Top             =   3480
         Width           =   375
      End
      Begin VB.Label lblTime 
         Appearance      =   0  'Flat
         BackColor       =   &H00000000&
         ForeColor       =   &H80000008&
         Height          =   765
         Left            =   2700
         TabIndex        =   8
         Top             =   3210
         Width           =   1170
      End
   End
Attribute VB_Name = "frmTimer"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
'Flash Windows title bar.
Private Declare Function FlashWindow Lib "User" (ByVal hWnd%, ByVal bInvert%) As Integer
'Variable for timer event.
Dim C As Double
Private Sub btnTimer_Click(Index As Integer)
Select Case Index
    Case 0
        Unload Me
    Case 1
        Unload Me
        Unload frmNag
    End Select
End Sub
Private Sub Form_Load()
    ' Appearance settings of introductory nag screen.
    btnTimer(0).Visible = False
    btnTimer(1).Visible = False
    pnlCont.Visible = False
    pnlExit.Visible = False
    C = Now
    Left = (Screen.Width - Width) \ 2
    Top = (Screen.Height - Height) \ 2
End Sub
Private Sub Timer1_Timer()
' Flash title bar of nag screen.
I = FlashWindow(frmTimer.hWnd, 1)
' Display timer for 10 seconds. After 10 seconds
' buttons are available to user.
Const TM_STOP = 10 'Changing this number will change the length of time a screen stays up.
lblTime2.Caption = Format$(Now - C, "ss")
If Val(Format$(Now - C, "ss")) >= TM_STOP Then
Timer1.Enabled = False
btnTimer(0).Visible = True
btnTimer(1).Visible = True
pnlCont.Visible = True
pnlExit.Visible = True
End If
End Sub